home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / mod / AddOn / ppaint.mod < prev   
Encoding:
Text File  |  2000-01-26  |  948 b   |  51 lines
  1. /* $VER: HTMLEXT Modul: ppaint.mod V 0.1.2 by Juan Manuel Wehrli 1999
  2.    Voraussetzung: PPaint V7.x
  3.  */
  4.  
  5.  
  6. if ~show("L",rexxreqtools.library) then do
  7.     call addlib("rexxreqtools.library",0,-30,0)
  8. end
  9. if ~show("L",rexxtricks.library) then do
  10.     call addlib("rexxtricks.library",0,-30,0)
  11. end
  12.  
  13. NL = '0a'x
  14.  
  15. PARSE ARG befehl file
  16. OPTIONS RESULTS
  17.  
  18. ADDRESS COMMAND
  19. if befehl = OPEN then do
  20.     if ~show('P','PPAINT') then do
  21.         'c:WBrun <>NIL: PPAINT:PPAINT'
  22.         'sys:rexxc/WaitForPort PPAINT'
  23.     end
  24.     ADDRESS PPAINT
  25.     file = STRIP(file)
  26.     LOADIMAGE file
  27. end
  28.  
  29.  
  30. if befehl = OPENNEW then do
  31.     if ~show('P','PPAINT') then do
  32.         'c:WBrun <>NIL: PPAINT:PPAINT'
  33.         'sys:rexxc/WaitForPort PPAINT'
  34.     end
  35.     ADDRESS PPAINT
  36.  
  37.     file = STRIP(file)
  38.     LOADIMAGE '"' || file || '"'
  39. end
  40.  
  41. if befehl = OPENNEWS then do
  42.     if ~show('P','PPAINT') then do
  43.         'c:WBrun <>NIL: Photogenics:Photogenics'
  44.         'sys:rexxc/WaitForPort PPAINT'
  45.     end
  46.     ADDRESS PPAINT
  47.     PGSTOFRONT
  48.     LOADIMAGE '"' || file || '"'
  49. end
  50.  
  51.